home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP11.EXE / TYP2.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-04  |  1KB  |  58 lines
  1. program lecture_fichier_type; {TYP2.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. const
  6.   nom = 'TESTSTR.DAT';  { fichier sur disquette }
  7.  
  8. type
  9.   str20 = string[20];
  10.  
  11. var
  12.   element: str20;
  13.   f      : file of str20;
  14.  
  15. {------------------------------------------------}
  16. { lireElements                                  }
  17. {------------------------------------------------}
  18. procedure lireElements;
  19. var  i: integer; { compteur }
  20.  
  21. begin
  22.   writeln('Liste des éléments lus:');
  23.   writeln;
  24.   writeln('Nombre d''éléments: ',filesize(f));
  25.   writeln;
  26.   i:= 0;   { valeur de début }
  27.   while not eof(f) do
  28.   begin
  29.     inc(i);           { i:= i+1, pour compter }
  30.     read(f,element);  { lecture d'un élément  }
  31.     writeln(i:3,': ',element);   { affichage }
  32.   end; { while }
  33.   writeln;
  34. end;
  35. {------------------------------------------------}
  36.  
  37. begin { programme principal }
  38.   clrscr;
  39.   assign(f,nom);   { liaison des fichiers        }
  40.   {$I-}            { inhibe la détect. d'erreurs }
  41.   reset(f);        { ouvre le fichier précédent  }
  42.   {$I+}            { rétabl. la détect. d'erreurs}
  43.   if ioResult = 0
  44.   then begin
  45.          lireElements;
  46.          close(f);
  47.        end
  48.   else begin
  49.          writeln('Erreur à l''ouverture');
  50.          writeln('du fichier!        ');
  51.          writeln;
  52.          writeln('Prog. interrompu!  ');
  53.        end;
  54.   gotoxy(1,25);
  55.   write('Veuillez appuyer sur la touche <CR>...');
  56.   readln;
  57. end.
  58.